home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / basepc.arc / PW.BAS < prev   
BASIC Source File  |  1985-10-09  |  580b  |  22 lines
  1. 1 REM PW.BAS
  2. 10 PRINT "WAITING FOR INCOMING CALL . . . ": PRINT
  3. 20 PRINT "Do NOT disconnect or turn off modem!": PRINT
  4. 40 ON ERROR GOTO 210
  5. 50 OPEN "com1:1200,n,8,1" AS #1
  6. 60 PRINT #1,"AT S0=1 E0 Q1"
  7. 70 INPUT #1,JUNK$
  8. 80 PRINT #1,CHR$(13);CHR$(13)
  9. 90 PRINT #1,"Hello . . . ?"
  10. 100 INPUT #1,R$
  11. 110 FOR I=1 TO 3
  12. 120 PRINT #1,"Password?"
  13. 130 PRINT #1,CHR$(10)
  14. 140 INPUT #1,R$
  15. 150 PRINT R$
  16. 160 IF R$<>"jones" THEN 190
  17. 170 PRINT #1,"OK, one moment, please."
  18. 180 OPEN "OKAY" FOR OUTPUT AS #2:PRINT #2,"*":CLOSE #2:SYSTEM
  19. 190 NEXT I
  20. 200 SYSTEM
  21. 210 CLOSE #1: GOTO 50
  22.